home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 156 (1991-03-10)(Manewaldt, A.)(DE)(PD).zip / Taifun 156 (1991-03-10)(Manewaldt, A.)(DE)(PD).adf / Mem-Controller / Include / startup.i < prev   
Text File  |  1991-02-18  |  748b  |  39 lines
  1. * StartUp.i umgeschrieben von E.Hambuch fuer A68k
  2. * ohne Include !!
  3. pr_CLI     equ $ac
  4. pr_MsgPort equ $5c
  5.   movem.l d0/a0,-(sp)
  6.   clr.l _WBenchMsg
  7.   sub.l a1,a1
  8.   move.l 4,a6   ; ExecBase
  9.   jsr -294(a6)  ; FindTask
  10.   move.l d0,a4
  11.   tst.l pr_CLI(a4)
  12.   beq.s fromWorkbench
  13. * von CLI aus:
  14.   movem.l (sp)+,d0/a0
  15.   bra run
  16. * von Workbench:
  17. fromWorkbench
  18.   lea pr_MsgPort(a4),a0
  19.   jsr -384(a6)  ; WaitPort
  20.   lea pr_MsgPort(a4),a0
  21.   jsr -372(a6)  ; GetMsg
  22.   move.l d0,_WBenchMsg
  23.   movem.l (sp)+,d0/a0
  24. run
  25.   bsr.s _main
  26.   move.l d0,-(sp)
  27.   tst.l _WBenchMsg
  28.   beq.s _exit
  29.   move.l 4,a6   ; ExecBase
  30.   jsr -132(a6)  ; Forbid
  31.   move.l _WBenchMsg(pc),a1
  32.   jsr -378(a6)  ; ReplyMsg
  33. _exit
  34.   move.l (sp)+,d0
  35.   rts
  36. _WBenchMsg
  37.   ds.l 1        ; Seka: dc.l 1
  38.   even
  39.